home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d12
/
v8n03.arc
/
WHATEVER.EX1
< prev
next >
Wrap
Text File
|
1989-01-18
|
457b
|
20 lines
PROGRAM Whatever;
USES Crt, TAccess, AddCust, DelCust, DispCust, Menu;
VAR QuitFlag : Boolean;
BEGIN
Initialize;
QuitFlag := False;
REPEAT
CASE GetMenuChoice OF
1 : AddACustomer; { This routine is in AddCust }
2 : DeleteACustomer; { This routine is in DelCust }
3 : DisplayACustomer; { This routine is in DispCust }
4 : QuitFlag := True
END
UNTIL QuitFlag;
Cleanup
END.